unit uPesquisa;

interface

uses
  uConstantesSistema;

type TPesquisa = class
     private
      fCampos   : string;
      fPesquisa : tpPesquisa;

      function getCampos: string;
      function gettipoPesquisa: tpPesquisa;

      procedure setCampos(const value: string);
      procedure settipoPesquisa(const value: tpPesquisa);
     public
      property campos       : string      read getCampos        write setCampos;
      property tipoPesquisa : tpPesquisa  read gettipoPesquisa  write settipoPesquisa;
    end;

implementation

{ TPesquisa }

function TPesquisa.getCampos: string;
begin
   result := fCampos;
end;

function TPesquisa.gettipoPesquisa: tpPesquisa;
begin
   result := fPesquisa;
end;

procedure TPesquisa.setCampos(const value: string);
begin
   fCampos := value;
end;

procedure TPesquisa.settipoPesquisa(const value: tpPesquisa);
begin
   fPesquisa := value;
end;

end.
